home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / tcp / dial / netdial4_0.lha / AmiTCP_Netdial4.0 / hangup.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1980-05-28  |  2.0 KB  |  59 lines
  1. /* Hangup.rexx                                                            */
  2. /*                                                                        */
  3. /* Version 1.0, 7 January 1993, by K. Raquel Sanborn (raquels@uhunix)     */
  4. /* Version 1.1, 1 March 1995, by Wes Tatters  (wtatters@world.net )       */
  5. /*                                                                        */
  6. /* An ARexx script that will hangup the phone after killing AmiTCP        */
  7. /*                                                                        */
  8. /* ---------------------------------------------------------------------- */
  9.  
  10. /* Start the required libraries                      */
  11.  
  12.     say 'Opening libraries...'
  13.  
  14.     check = addlib('rexxsupport.library', 0, -30, 0)
  15.     if (check == 0) then say 'rexxsupport library did not open...'
  16.  
  17.     check = addlib('rexxserdev.library',  0, -30, 0)
  18.     if (check == 0) then say 'rexxserdev did not open...'
  19.  
  20.     cr        = '0d'x
  21.     hanup_str = 'ATH'||cr
  22.  
  23.  
  24. /* Kill AmiTCP first */
  25.  
  26.     say 'KILLing AmiTCP via ARexx port...'
  27.     address AMITCP
  28.     'KILL'
  29.     result = delay(200)
  30.  
  31.  
  32. /* Open the serial device and talk to the modem                          */
  33. /* Mine happens to be a 19200 baud Hayes-compatible on serial unit 0     */
  34.  
  35.     say 'Setting up serial device...'
  36.     serhandle = SerOpen('serial.device', 0)
  37.     check     = SerClear(serhandle)
  38.     check     = SerSetParms(serhandle, 19200, 8, N, 1, 0 )
  39.  
  40. /* Send +++, wait the send ATH, then exit */
  41.  
  42.     say 'Sending +++'
  43.     check = SerWrite(serhandle, '+++', length('+++'))
  44.     check = delay(200)
  45.     say 'Sending ATH<cr>'
  46.     check = SerWrite(serhandle, 'A', 1)  /* Send it slow, I have a stupid */
  47.     check = delay(2)                     /* MODEM! */
  48.     check = SerWrite(serhandle, 'T', 1)
  49.     check = delay(2)
  50.     check = SerWrite(serhandle, 'H', 1)
  51.     check = delay(2)
  52.     check = SerWrite(serhandle, '0', 1)
  53.     check = delay(2)
  54.     check = SerWrite(serhandle, cr, 1)
  55.     check = delay(50)
  56.     check = SerClose(serhandle)
  57.     say 'Done.'
  58. exit 0
  59.